home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Graphics / Twilight Staque / Twilight Staque / card_16859.txt < prev    next >
Text File  |  1990-12-17  |  2KB  |  91 lines
  1. -- card: 16859 from stack: in
  2. -- bmap block id: 17013
  3. -- flags: 0000
  4. -- background id: 16447
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=96 top=186 right=269 bottom=420
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect dissolve slowly
  23.   go to next card
  24.   play "ImSorry"
  25.   wait until the sound is "done"
  26.   play "Shoot"
  27.   wait until the sound is "done"
  28.   set pattern to 1
  29.   choose brush tool
  30.   set dragspeed to 200
  31.   wait until the sound is "done"
  32.   play "harpsichord" g1 g1 g1
  33.   drag from 150,250 to 250,100
  34.   domenu "revert"
  35.   set pattern to 5
  36.   play "boing" c2 c2 c2
  37.   drag from 220,75 to 140,260
  38.   domenu "revert"
  39.   set pattern to 1
  40.   set dragspeed to 700
  41.   play "harpsichord" f1 f1 f1 f1
  42.   drag from 150,250 to 240,80
  43.   drag from 150,250 to 255,80
  44.   drag from 150,250 to 270,80
  45.   drag from 150,250 to 285,80
  46.   drag from 150,250 to 300,80
  47.   set lockscreen to true
  48.   domenu "revert"
  49.   choose browse tool
  50.   go next card
  51.   play "static" c2 c2
  52.   set lockscreen to false
  53.   play "static"c2 c2
  54.   go next card
  55.   play "static" c2 c2
  56.   go next card
  57.   play "static" c2 c2 c2 c2 c2 c2 c2
  58.   choose select tool
  59.   domenu "select all"
  60.   domenu "select"
  61.   play "static" g1
  62.   wait until the sound is "done"
  63.   domenu "invert"
  64.   play "static" g1
  65.   wait until the sound is "done"
  66.   domenu "invert"
  67.   play "static" g1
  68.   wait until the sound is "done"
  69.   domenu "invert"
  70.   play "static" g1
  71.   wait until the sound is "done"
  72.   domenu "invert"
  73.   go next card
  74.   play "harpsichord" c7
  75.   wait until the sound is "done"
  76.   set dragspeed to 100
  77.   domenu "select all"
  78.   domenu "select"
  79.   play "boing" gq ge eq ae gq. eq.
  80.   drag from 145,260 to 250,80
  81.   set dragspeed to 40
  82.   drag from 250,80 to 110,80
  83.   set lockscreen to true
  84.   domenu "revert"
  85.   domenu "revert"
  86.   go next card
  87.   set lockscreen to false
  88.   choose browse tool
  89. end mouseUp
  90.  
  91.